home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
marina
/
install
next >
Wrap
Text File
|
1998-08-11
|
2KB
|
71 lines
failat 21
stack 50000
cd >ENV:ACTUALDIR
echo "*ec*n"
echo "*e[1m MARInA - Surf the System*e[0m © TNE) 1998"
echo "*n Installation from $ACTUALDIR"
"$ACTUALDIR/c/wait" 5
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f
lab a
set Package MARInA
set size "< 3MB"
set return b
skip Install
lab b
cd "$ACTUALDIR"
cd /
echo "*ec*n *e[1mInstallation end*e[0m."
echo "*n*n This window will be closed 10 seconds from now."
"$ACTUALDIR/c/wait" 10
endcli >NIL:
;----------------------
lab Install
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f
echo "*ec*n ... unpacking *e[1m$Package.lha*e[0m to $ACTUALDIR."
echo " ______________________________________________________________________*n*n"
"$ACTUALDIR/c/wait" 4
"$ACTUALDIR/c/lha" x -am -F $Package.lha
if not warn
delete $Package.lha QUIET
endif
"$ACTUALDIR/c/drawicon" $Package
"$ACTUALDIR/c/wait" 2
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f
echo "*ec*n ... Installing the *e[1m$Package-Package*e[0m."
echo " Needed Disk-space on System-Partition: $size*n"
echo " *e[1mPlease, open *e[0m the newly created drawer *e[1m$Package*e[0m now."
echo " Then: Double-click the herein appearing icon!*n*n" NOLINE
ask " Press *e[1mENTER*e[0m after completed installation!"
"$ACTUALDIR/c/wait" 2
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f
cd "$ACTUALDIR"
setenv ACTUALPATH "$ACTUALDIR/$Package"
echo "*ec*n *e[1mThe drawer $Package may be deleted now.*e[0m"
echo " Please note, to copy the Icons you'd like to use somewhere else"
echo " before doing so:"
echo " Just call the MARInA FileManager (rShift F5) for that purpose!*n"
ask " y: delete n=ENTER: do not delete ?"
if warn
"$ACTUALDIR/c/delete" $Package ALL
"$ACTUALDIR/c/iconkill" $Package
endif
"$ACTUALDIR/c/wait" 2
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f
skip $return BACK